home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (4th Edition) / The Business Master - 4th Edition.iso / files / business / zipcode / foxdemo.prg < prev    next >
Text File  |  1993-09-07  |  2KB  |  99 lines
  1. *  FOXPRO ZIP Code Lookup Demo Program
  2.  
  3. SET CONFIRM ON
  4. SET COLOR TO W/B
  5. SET TALK OFF
  6. SET SCOREBOARD OFF
  7. SET BELL OFF
  8. CLEAR
  9. SET STATUS OFF
  10. USE zipcodes
  11.  
  12. * Check for existence of cdx file. If it is not present, create it
  13. IF .NOT. FILE("ZIPCODES.CDX") .AND. .NOT. FILE("ZIPCODES.IDX")
  14.     CLEAR
  15.     answer = "Y"
  16.     @ 1,1 SAY "You need an index file, requiring approximately 200K"
  17.     @ 2,1 SAY "of space:"
  18.     @ 2,10 SAY "   Continue?" GET answer
  19.     READ
  20.     IF answer = "Y"
  21.         SET TALK ON
  22.         CLEAR
  23.         @ 12,36 SAY "Indexing"
  24.         INDEX ON zipcode TO zipcodes COMPACT
  25.         SET TALK OFF
  26.         CLEAR
  27.     ELSE
  28.         CANCEL
  29.     ENDIF
  30. ELSE
  31.     SET INDEX TO zipcodes
  32. ENDIF
  33.  
  34. * Open address database
  35. SELECT 2
  36. USE demo
  37. * Now enter data
  38. APPEND BLANK
  39. DO WHILE .T.
  40.     SELE 2
  41.     @  3, 29  SAY "Help Software Demo"
  42.     @  6,  9  SAY "First Name:"
  43.     @  6, 26  GET  demo->fname
  44.     @  8,  9  SAY "Last Name:"
  45.     @  8, 26  GET  demo->lname
  46.     @ 10,  9  SAY "Address:"
  47.     @ 10, 26  GET  demo->address
  48.     @ 12,  9  SAY "City:"
  49.     @ 12, 26  SAY  demo->city
  50.     @ 14,  9  SAY "State:"
  51.     @ 14, 26  SAY  demo->state
  52.     @ 14, 32  SAY "Zip Code:"
  53.     @ 14, 43  GET  demo->zipcode
  54.     @ 16,  9  SAY "Phone:"
  55.     @ 16,  16 SAY  demo->phone PICTURE "(   )    -    "
  56.     @  2,  8  TO 18, 69
  57.     @  4,  9  TO  4, 68
  58.     @ 19,27     SAY "Press ESC to Abort Program"
  59.     READ
  60.  
  61.     * Check for ESC key
  62.     IF READKEY() = 12
  63.         CLOSE ALL
  64.         EXIT
  65.     ENDIF
  66.  
  67.     huntzip=zipcode
  68.     SELECT 1
  69.  
  70.     * If no Zipcode, then loop back through the record
  71.     IF demo->zipcode = SPACE(5)
  72.         LOOP
  73.     ENDIF
  74.  
  75.     FIND &huntzip
  76.     IF FOUND()
  77.         SELECT 2
  78.         *move data into database
  79.         REPLACE zipcode WITH A->zipcode,;
  80.             state WITH A->state,;
  81.             city WITH A->city
  82.  
  83.         @ 12,  9  SAY "City:"
  84.         @ 12, 26  SAY  demo->city
  85.         @ 14,  9  SAY "State:"
  86.         @ 14, 26  SAY  demo->state
  87.         @ 16,  16 GET  demo->phone PICTURE "(999) 999-9999"
  88.         READ
  89.     ELSE
  90.         @ 22,0
  91.         WAIT "That zip code is not on file...any key to continue"
  92.     ENDIF
  93.     @ 23,0 CLEAR TO 23,79
  94.     APPEND BLANK
  95. ENDDO
  96. CLOSE ALL
  97.  
  98.  
  99.